home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / c / xw2.000 / xw2 / xw / x / xbwstart.mta < prev    next >
Encoding:
Text File  |  1994-12-05  |  1.8 KB  |  52 lines
  1.  
  2. NewProject($1);
  3. ng(PRJ $1);
  4.   pn(WDW (ptr)NULL); /* Window-Variablen-Queue (Zg zum ersten WDW)      */
  5.     :TSK (ptr)NULL); /* Task-Variablen-Queue   (Zg zur ersten TSK)      */
  6.     :GRP (ptr)NULL); /* Reserviert fuer Gruppen zur Erweiterung v. XbW  */
  7.     :OBJ (ptr)NULL); /* Objekt-Queue      (Zg zum ersten OBJ)           */
  8.     :SVR (ptr)NULL); /* Systemvariablen-Queue  (Zg...)                  */
  9.     :OBX (ptr)NULL); /* Objektgenerator-Variablen-Queue (Zg...)         */
  10.     :MFX (ptr)NULL); /* IO-Metafile-Queue      (Zg...)                  */
  11.     :KEY (ptr)NULL); /* Tastatur-Makro Queue                            */
  12.     :USR (ptr)NULL); /* Benutzerdefinierte projektbezogene Variablen    */
  13.     :COL (ptr)NULL); /* Benutzerdefinierbare Farbtabelle                */
  14.     :ICN (ptr)NULL); /* Icon Groups; to group subwindows at WDW:NAME.icn*/
  15.   eg();
  16.  
  17. ng(KEY("@XW:0.68")); c(K("@stop();"));  eg();    /* F10: System Stop */
  18. ng(KEY("@XW:0.67")); c(K("@dump();")); eg();     /* F9: Dump file    */
  19. ng(KEY("@XW:0.66")); c(K("@write();"));eg();     /* F8: write file   */
  20. ng(KEY("@XW:0.65")); c(K("@read();")); eg();     /* F7: read file    */
  21.  
  22. ng(SVR PRJ); s(name 50 $1);     eg();                 /* Project name */
  23. ng(SVR MFX); s(grp 200 (" ") ); eg();                  /* act MFX grp */
  24.  
  25. Message(("Generating Project"));
  26.  
  27. @system/videosetup();
  28.  
  29. @colors/names();
  30. ?(" Selected color classes ( ('color') or ('bw') ): "),$2;
  31. @colors/objects($2);
  32. Message(("Window Color Groups "));
  33. @colors/windows();
  34. Message(("Icon Groups "));
  35. @icongroups/windows();
  36.  
  37. @objectbuilder/variables();
  38. @objectbuilder/windows/prjedit();
  39. @objectbuilder/windows/build();
  40. @objectbuilder/windows/grpedit();
  41. @objectbuilder/windows/grpselect();
  42. @objectbuilder/windows/lstselect();
  43.  
  44. RootWindow(80 40);
  45.  
  46. IconAllWdw();
  47. Message( (" Project generated.") );
  48. XFlush();
  49.  
  50. End();
  51.  
  52.